      ***************************************************************
      *   THIS COMMAREA IS USED BY THE MTS, PTS AND LTS SYSTEMS     *
      *   THE COMMAREA IS DIVIDED INTO THREE SECTIONS: (1) THE      *
      *   COMMON AREA BETWEEN THE SYSTEMS; (2) THE APPLICATION      *
      *   AREA BETWEEN PROGRAMS; AND (3) THE PROGRAM WORK AREA.     *
      ***************************************************************
       01  WS-COMMAREA.
           05  CA-COMMON-AREA          PIC X(1000) VALUE SPACES.
           05  FILLER REDEFINES CA-COMMON-AREA.
               10  CA-TERM-ID                 PIC X(04).
               10  CA-OP-ID                   PIC X(08).
               10  CA-OP-LOC                  PIC X(02).
               10  CA-OP-RGN                  PIC X(02).
               10  CA-APPLID                  PIC X(08).
               10  CA-LOGON-CONTROL           PIC X(01).
                   88  CA-LOGON-NULL          VALUE '0'.
                   88  CA-LOGON-COMPLETE      VALUE '1'.
                   88  CA-LOGON-NO-GOOD       VALUE '2'.
               10  CA-REGION-LEVEL            PIC X(01).
                   88  CA-UNIT-TEST           VALUE 'U'.
                   88  CA-PROD                VALUE 'P'.
               10  CA-PARAGRAPH-NBR           PIC X(04).
      *
               10  CA-DATE                    PIC X(08).
               10  CA-TIME                    PIC X(05).
      *
               10  CA-A-BADGE-N               PIC X(06).
               10  CA-A-EMPNM-X               PIC X(25).
               10  CA-F-MKTCDIV-C             PIC X(02).
               10  CA-F-MKTCBU-C              PIC X(03).
               10  CA-F-MKTCRGN-C             PIC X(02).
               10  CA-A-LOC-C                 PIC X(02).
               10  CA-A-SYS-C                 PIC X(08).
               10  CA-A-MSG-I                 PIC X(01).
      *
               10  CA-SYSTEM-ADMINISTRATOR-SW  PIC X(01).
                   88  CA-SYSTEM-ADMINISTRATOR VALUE 'Y'.
      *
               10  FILLER                      PIC X(349).
      *
               10  CA-BU-SUB                  PIC S9(4) COMP.
               10  CA-MKTCBU-SW               PIC X(01).
                   88  CA-MKTCBU-COMPLETE     VALUE 'Y'.
               10  CA-MKTCBU-INFO
                         OCCURS 20 TIMES
                         INDEXED BY CA-BU-INDX.
                   15  CA-BU-F-MKTCBU-C       PIC X(03).
                   15  CA-BU-F-MKTCBU-X       PIC X(20).
               10  CA-DB-UPD-D                PIC X(10).
               10  CA-OP-RGN-X                PIC X(20).
      *
           05  CA-APPL-AREA            PIC X(1000) VALUE SPACES.
           05  FILLER REDEFINES CA-APPL-AREA.
               10  CA-APPLICATION             PIC X(08).
      *
               10  CA-PTS-LOC-INFO.
                   15  CA-PTS-LOC             PIC X(02).
                       88  CA-VALID-PTS-LOC
                           VALUE 'SC', 'FM', 'TE', 'SL', 'NA'.
                   15  CA-PTS-LVL             PIC X(02).
      *
               10  CA-LTS-LOC-INFO REDEFINES CA-PTS-LOC-INFO.
                   15  CA-LTS-LOC             PIC X(02).
                   15  CA-LTS-LVL             PIC X(02).
      *
               10  CA-MTS-LOC-INFO REDEFINES CA-PTS-LOC-INFO.
                   15  CA-MTS-LOC             PIC X(02).
                       88  CA-VALID-MTS-LOC VALUE 'SC'.
                   15  CA-MTS-LVL             PIC X(02).
      *
               10  CA-CURRENT-PGM             PIC X(08).
               10  CA-PREV-PGM                PIC X(08).
               10  CA-RETURN-PGM              PIC X(08).
      *
               10  CA-CURRENT-TXN             PIC X(04).
               10  CA-PREV-TXN                PIC X(04).
      *
               10  CA-CURR-KEY.
                   15  CA-CURR-PROJNBR-C      PIC X(12).
                   15  CA-CURR-LOC-C          PIC X(02).
                   15  CA-CURR-FCST-ID        PIC 9(05).
                   15  CA-CURR-DIV-C          PIC X(02).
                   15  CA-CURR-PRIME-C        PIC X(04).
                   15  CA-CURR-SUB-C          PIC X(03).
                   15  CA-CURR-PROD-LN        PIC X(04).
                   15  CA-CURR-SUBPROD-LN     PIC X(03).
                   15  CA-CURR-PO-NBR         PIC X(10).
                   15  CA-CURR-PO-LN-NBR      PIC S9(03).
                   15  CA-CURR-PO-REL-NBR     PIC S9(05).
                   15  CA-CURR-UID-C          PIC X(10).
                   15  CA-CURR-SEQ-N          PIC S9(09) USAGE COMP.
                   15  CA-CURR-BIZUNT-C       PIC X(003).
                   15  CA-CURR-EXPTYP-C       PIC X(002).
                   15  CA-CURR-EXPSUBTYP-C    PIC X(003).
                   15  CA-CURR-FCST-ID-NUM    PIC S9(05) USAGE COMP-3.
                   15  CA-CURR-DESC-X         PIC X(025).
                   15  CA-CURR-DATE-FLAG      PIC X(001).
                   15  CA-CURR-END-D          PIC X(010).
                   15  CA-CURR-SEL-PRJ-N      PIC X(010).
                   15  FILLER                 PIC X(079).
      *
               10  CA-PREV-KEY.
                   15  CA-PREV-PROJNBR-C      PIC X(12).
                   15  CA-PREV-LOC-C          PIC X(02).
                   15  CA-PREV-FCST-ID        PIC 9(05).
                   15  CA-PREV-DIV-C          PIC X(02).
                   15  CA-PREV-PRIME-C        PIC X(04).
                   15  CA-PREV-SUB-C          PIC X(03).
                   15  CA-PREV-PROD-LN        PIC X(04).
                   15  CA-PREV-SUBPROD-LN     PIC X(03).
                   15  CA-PREV-PO-NBR         PIC X(10).
                   15  CA-PREV-PO-LN-NBR      PIC S9(03).
                   15  CA-PREV-PO-REL-NBR     PIC S9(05).
                   15  CA-PREV-UID-C          PIC X(10).
                   15  CA-PREV-SEQ-N          PIC S9(09) USAGE COMP.
                   15  CA-PREV-BIZUNT-C       PIC X(003).
                   15  CA-PREV-EXPTYP-C       PIC X(002).
                   15  CA-PREV-EXPSUBTYP-C    PIC X(003).
                   15  CA-PREV-FCST-ID-NUM    PIC S9(05) USAGE COMP-3.
                   15  CA-PREV-DESC-X         PIC X(025).
                   15  CA-PREV-DATE-FLAG      PIC X(001).
                   15  CA-PREV-END-D          PIC X(010).
                   15  CA-PREV-SEL-PRJ-N      PIC X(010).
                   15  FILLER                 PIC X(079).
      *
               10  CA-FCSID-NUM               PIC 9(5).
      *
               10  CA-ENTRY-UPDATE-IND        PIC X(1).
                   88  CA-ENTRY     VALUE 'E'.
                   88  CA-UPDATE    VALUE 'U'.
                   88  CA-INQUIRY   VALUE 'I'.
                   88  CA-DELETE    VALUE 'D'.
                   88  CA-PROMPT    VALUE 'P'.
      *
               10  CA-SCENARIO-IND            PIC X.
                   88  CA-SCEN1     VALUE '1'.
                   88  CA-SCEN2     VALUE '2'.
                   88  CA-SCEN3     VALUE '3'.
                   88  CA-SCEN4     VALUE '4'.
      *
               10  CA-FISCAL-PERIOD           PIC 9(02).
      *
               10  CA-SELECTOR-INFO
                         OCCURS 20 TIMES
                         INDEXED BY CA-SELECTOR-INDX.
                   15  CA-SEL-F-FCSID-C       PIC 9(05).
                   15  CA-SEL-F-PRJ-N         PIC X(10).
                   15  CA-SEL-F-DPT-C         PIC X(04).
                   15  CA-SEL-F-SUBDPT-C      PIC X(03).
                   15  CA-SEL-F-MKTCBU-C      PIC X(03).
      *
               10  CA-PF12-FLAG               PIC X(01).
                   88  CA-PF12      VALUE 'Y'.
                   88  CA-NOT-PF12  VALUE 'N'.
      *
               10  CA-FISCAL-YEAR             PIC X(02).
      *
               10  NSC-FISCAL-PERIOD          PIC 9(02).
      *
           05  CA-PRGM-AREA.
               10  CA-MAP-SAVE-AREA           PIC X(2096).
